home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / QuickTime™ 1.5 interfaces / ImageCodec.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  8.7 KB  |  246 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; 
  3. ; 
  4. ; Created: Tuesday, October 13, 1992 
  5. ;  ImageCodec.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ; 
  9. ;  Copyright Apple Computer, Inc. 1991, 1992
  10. ;  All rights reserved
  11. ; 
  12. ; 
  13.  
  14. ; $IFC UNDEFINED UsingIncludes
  15. ; $SETC UsingIncludes := 0
  16. ; $ENDC
  17.  
  18. ; $IFC NOT UsingIncludes
  19.  
  20. ; $ENDC
  21.  
  22. ; $IFC UNDEFINED UsingImageCodec
  23. ; $SETC UsingImageCodec := 1
  24.  
  25. ; $I+
  26. ; $SETC ImageCodecIncludes := UsingIncludes
  27. ; $SETC UsingIncludes := 1
  28. ; $IFC UNDEFINED UsingQuickDraw
  29.  
  30. (require-interface 'QUICKDRAW)  ; $I $$Shell(PInterfaces)QuickDraw.p
  31. ; $ENDC
  32. ; $IFC UNDEFINED UsingQDOffscreen
  33.  
  34. (require-interface 'QDOFFSCREEN); $I $$Shell(PInterfaces)QDOffscreen.p
  35. ; $ENDC
  36.  
  37. ; $IFC UNDEFINED UsingTypes
  38.  
  39. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  40. ; $ENDC
  41.  
  42. ; $IFC UNDEFINED UsingComponents
  43.  
  44. (require-interface 'COMPONENTS) ; $I $$Shell(PInterfaces)Components.p
  45. ; $ENDC
  46.  
  47. ; $IFC UNDEFINED UsingImageCompression
  48.  
  49. (require-interface 'IMAGECOMPRESSION); $I $$Shell(PInterfaces)ImageCompression.p
  50. ; $ENDC
  51.  
  52. ; $SETC UsingIncludes := ImageCodecIncludes
  53.  
  54. ;     codec component selectors    
  55. ;     codec selectors 0-127 are reserved by Apple 
  56. ;     codec selectors 128-191 are subtype specific 
  57. ;     codec selectors 192-255 are vendor specific 
  58. ;      codec selectors 256-32767 are reserved by Apple 
  59. ;     negative selectors are reserved by the Component Manager 
  60.  
  61. (defconstant $codecGetCodecInfo #X0)
  62. (defconstant $codecGetCompressionTime #X1)
  63. (defconstant $codecGetMaxCompressionSize #X2)
  64. (defconstant $codecPreCompress #X3)
  65. (defconstant $codecBandCompress #X4)
  66. (defconstant $codecPreDecompress #X5)
  67. (defconstant $codecBandDecompress #X6)
  68. (defconstant $codecCDSequenceBusy #X7)
  69. (defconstant $codecGetCompressedImageSize #X8)
  70. (defconstant $codecGetSimilarity #X9)
  71. (defconstant $codecTrimImage #XA)
  72.  
  73. ;     codec capabilities flags    
  74.  
  75. (defconstant $codecCanScale #X1)
  76. (defconstant $codecCanMask #X2)
  77. (defconstant $codecCanMatte #X4)
  78. (defconstant $codecCanTransform #X8)
  79. (defconstant $codecCanTransferMode #X10)
  80. (defconstant $codecCanCopyPrev #X20)
  81. (defconstant $codecCanSpool #X40)
  82. (defconstant $codecCanClipVertical #X80)
  83. (defconstant $codecCanClipRectangular #X100)
  84. (defconstant $codecCanRemapColor #X200)
  85. (defconstant $codecCanFastDither #X400)
  86. (defconstant $codecCanSrcExtract #X800)
  87. (defconstant $codecCanCopyPrevComp #X1000)
  88. (defconstant $codecCanAsync #X2000)
  89. (defconstant $codecCanMakeMask #X4000)
  90. (defconstant $codecCanShift #X8000)
  91.  
  92. (def-mactype :CODECCAPABILITIESPTR (find-mactype :POINTER))
  93. (defrecord CodecCapabilities 
  94.    (flags :SIGNED-LONG)
  95.    (wantedPixelSize :SIGNED-INTEGER)
  96.    (extendWidth :SIGNED-INTEGER)
  97.    (extendHeight :SIGNED-INTEGER)
  98.    (bandMin :SIGNED-INTEGER)
  99.    (bandInc :SIGNED-INTEGER)
  100.    (pad :SIGNED-INTEGER)
  101.    (time :SIGNED-INTEGER)
  102.    )
  103.  
  104. (defconstant $codecConditionFirstBand #X1)
  105. (defconstant $codecConditionLastBand #X2)
  106. (defconstant $codecConditionFirstFrame #X4)
  107. (defconstant $codecConditionNewDepth #X8)
  108. (defconstant $codecConditionNewTransform #X10)
  109. (defconstant $codecConditionNewSrcRect #X20)
  110. (defconstant $codecConditionNewMask #X40)
  111. (defconstant $codecConditionNewMatte #X80)
  112. (defconstant $codecConditionNewTransferMode #X100)
  113. (defconstant $codecConditionNewClut #X200)
  114. (defconstant $codecConditionNewAccuracy #X400)
  115. (defconstant $codecConditionNewDestination #X800)
  116. (defconstant $codecConditionCodecChangedMask #X80000000)
  117.  
  118. (defconstant $codecInfoResourceType :|cdci|);  codec info resource type 
  119. (defconstant $codecInterfaceVersion 1)
  120.  
  121. (def-mactype :CODECCOMPRESSPARAMSPTR (find-mactype :POINTER))
  122. (defrecord CodecCompressParams 
  123.    (sequenceID :SIGNED-LONG)    ;  precompress,bandcompress 
  124.    (imageDescription (:HANDLE :IMAGEDESCRIPTION));  precompress,bandcompress 
  125.    (data :POINTER)
  126.    (bufferSize :SIGNED-LONG)
  127.    (frameNumber :SIGNED-LONG)
  128.    (startLine :SIGNED-LONG)
  129.    (stopLine :SIGNED-LONG)
  130.    (conditionFlags :SIGNED-LONG)
  131.    (callerFlags :SIGNED-INTEGER)
  132.    (capabilities (:POINTER :CODECCAPABILITIES));  precompress,bandcompress 
  133.    (ProgressProcRecord :PROGRESSPROCRECORD)
  134.    (CompletionProcRecord :COMPLETIONPROCRECORD)
  135.    (FlushProcRecord :FLUSHPROCRECORD)
  136.    (srcPixMap :PIXMAP)          ;  precompress,bandcompress 
  137.    (prevPixMap :PIXMAP)
  138.    (spatialQuality :SIGNED-LONG)
  139.    (temporalQuality :SIGNED-LONG)
  140.    (similarity :SIGNED-LONG)
  141.    (reserved (:ARRAY :SIGNED-LONG 2))
  142.    )
  143.  
  144. (def-mactype :CODECDECOMPRESSPARAMSPTR (find-mactype :POINTER))
  145. (defrecord CodecDecompressParams 
  146.    (sequenceID :SIGNED-LONG)    ;  predecompress,banddecompress 
  147.    (imageDescription (:HANDLE :IMAGEDESCRIPTION));  predecompress,banddecompress 
  148.    (data :POINTER)
  149.    (bufferSize :SIGNED-LONG)
  150.    (frameNumber :SIGNED-LONG)
  151.    (startLine :SIGNED-LONG)
  152.    (stopLine :SIGNED-LONG)
  153.    (conditionFlags :SIGNED-LONG)
  154.    (callerFlags :SIGNED-INTEGER)
  155.    (capabilities (:POINTER :CODECCAPABILITIES));  predecompress,banddecompress 
  156.    (ProgressProcRecord :PROGRESSPROCRECORD)
  157.    (CompletionProcRecord :COMPLETIONPROCRECORD)
  158.    (DataProcRecord :DATAPROCRECORD)
  159.    (port (:POINTER :CGRAFPORT)) ;  predecompress,banddecompress 
  160.    (dstPixMap :PIXMAP)          ;  predecompress,banddecompress 
  161.    (maskBits (:POINTER :BITMAP))
  162.    (mattePixMap (:POINTER :PIXMAP))
  163.    (srcRect :RECT)              ;  predecompress,banddecompress 
  164.    (matrix (:POINTER :MATRIXRECORD));  predecompress,banddecompress 
  165.    (accuracy :SIGNED-LONG)      ;  predecompress,banddecompress 
  166.    (transferMode :SIGNED-INTEGER);  predecompress,banddecompress 
  167.    (reserved (:ARRAY :SIGNED-LONG 2))
  168.    )
  169.  
  170.  
  171. #| Not in ROM
  172. (deftrap _CDGETCODECINFO ((STORAGE :HANDLE) (INFO (:POINTER :CODECINFO)))
  173.    (:STACK :SIGNED-LONG)
  174.    (:STACK-TRAP #x0))
  175. |#
  176. #| Not in ROM
  177. (deftrap _CDGETCOMPRESSIONTIME ((STORAGE :HANDLE) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DEPTH :SIGNED-INTEGER) (SPATIALQUALITY (:POINTER :SIGNED-LONG)) (TEMPORALQUALITY (:POINTER :SIGNED-LONG)) (TIME (:POINTER :SIGNED-LONG)))
  178.    (:STACK :SIGNED-LONG)
  179.    (:STACK-TRAP #x0))
  180. |#
  181. #| Not in ROM
  182. (deftrap _CDGETMAXCOMPRESSIONSIZE ((STORAGE :HANDLE) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DEPTH :SIGNED-INTEGER) (QUALITY :SIGNED-LONG) (SIZE (:POINTER :SIGNED-LONG)))
  183.    (:STACK :SIGNED-LONG)
  184.    (:STACK-TRAP #x0))
  185. |#
  186. #| Not in ROM
  187. (deftrap _CDPRECOMPRESS ((STORAGE :HANDLE) (PARAMS (:POINTER :CODECCOMPRESSPARAMS)))
  188.    (:STACK :SIGNED-LONG)
  189.    (:STACK-TRAP #x0))
  190. |#
  191. #| Not in ROM
  192. (deftrap _CDBANDCOMPRESS ((STORAGE :HANDLE) (PARAMS (:POINTER :CODECCOMPRESSPARAMS)))
  193.    (:STACK :SIGNED-LONG)
  194.    (:STACK-TRAP #x0))
  195. |#
  196. #| Not in ROM
  197. (deftrap _CDPREDECOMPRESS ((STORAGE :HANDLE) (PARAMS (:POINTER :CODECDECOMPRESSPARAMS)))
  198.    (:STACK :SIGNED-LONG)
  199.    (:STACK-TRAP #x0))
  200. |#
  201. #| Not in ROM
  202. (deftrap _CDBANDDECOMPRESS ((STORAGE :HANDLE) (PARAMS (:POINTER :CODECDECOMPRESSPARAMS)))
  203.    (:STACK :SIGNED-LONG)
  204.    (:STACK-TRAP #x0))
  205. |#
  206. #| Not in ROM
  207. (deftrap _CDCODECBUSY ((STORAGE :HANDLE) (SEQ :SIGNED-LONG))
  208.    (:STACK :SIGNED-LONG)
  209.    (:STACK-TRAP #x0))
  210. |#
  211. #| Not in ROM
  212. (deftrap _CDGETCOMPRESSEDIMAGESIZE ((STORAGE :HANDLE) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (BUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (DATASIZE (:POINTER :SIGNED-LONG)))
  213.    (:STACK :SIGNED-LONG)
  214.    (:STACK-TRAP #x0))
  215. |#
  216. #| Not in ROM
  217. (deftrap _CDGETSIMILARITY ((STORAGE :HANDLE) (SRC (:HANDLE :PIXMAP)) (SRCRECT :RECT) (DESC (:HANDLE :IMAGEDESCRIPTION)) (DATA :POINTER) (SIMILARITY (:POINTER :SIGNED-LONG)))
  218.    (:STACK :SIGNED-LONG)
  219.    (:STACK-TRAP #x0))
  220. |#
  221. #| Not in ROM
  222. (deftrap _CDTRIMIMAGE ((STORAGE :HANDLE) (DESC (:HANDLE :IMAGEDESCRIPTION)) (INDATA :POINTER) (INBUFFERSIZE :SIGNED-LONG) (DATAPROC (:POINTER :DATAPROCRECORD)) (OUTDATA :POINTER) (OUTBUFFERSIZE :SIGNED-LONG) (FLUSHPROC (:POINTER :FLUSHPROCRECORD)) (TRIMRECT (:POINTER :RECT)) (PROGRESSPROC (:POINTER :PROGRESSPROCRECORD)))
  223.    (:STACK :SIGNED-LONG)
  224.    (:STACK-TRAP #x0))
  225. |#
  226. ; $ENDC
  227.  
  228.  
  229. (export '($CODECINTERFACEVERSION $CODECINFORESOURCETYPE
  230.           $CODECCONDITIONCODECCHANGEDMASK $CODECCONDITIONNEWDESTINATION
  231.           $CODECCONDITIONNEWACCURACY $CODECCONDITIONNEWCLUT
  232.           $CODECCONDITIONNEWTRANSFERMODE $CODECCONDITIONNEWMATTE
  233.           $CODECCONDITIONNEWMASK $CODECCONDITIONNEWSRCRECT
  234.           $CODECCONDITIONNEWTRANSFORM $CODECCONDITIONNEWDEPTH
  235.           $CODECCONDITIONFIRSTFRAME $CODECCONDITIONLASTBAND
  236.           $CODECCONDITIONFIRSTBAND $CODECCANSHIFT $CODECCANMAKEMASK
  237.           $CODECCANASYNC $CODECCANCOPYPREVCOMP $CODECCANSRCEXTRACT
  238.           $CODECCANFASTDITHER $CODECCANREMAPCOLOR $CODECCANCLIPRECTANGULAR
  239.           $CODECCANCLIPVERTICAL $CODECCANSPOOL $CODECCANCOPYPREV
  240.           $CODECCANTRANSFERMODE $CODECCANTRANSFORM $CODECCANMATTE $CODECCANMASK
  241.           $CODECCANSCALE $CODECTRIMIMAGE $CODECGETSIMILARITY
  242.           $CODECGETCOMPRESSEDIMAGESIZE $CODECCDSEQUENCEBUSY
  243.           $CODECBANDDECOMPRESS $CODECPREDECOMPRESS $CODECBANDCOMPRESS
  244.           $CODECPRECOMPRESS $CODECGETMAXCOMPRESSIONSIZE
  245.           $CODECGETCOMPRESSIONTIME $CODECGETCODECINFO))
  246. (provide-interface 'ImageCodec)